perm filename MANNA.PR2[258,JMC] blob sn#143788 filedate 1975-02-02 generic text, type T, neo UTF8

1  ((¬Q(0,0)∨(Q(0,M*0)∨¬∀I K.((¬(K=0)∧Q(I,K))⊃Q(PREDI,K+M))))∧∀N.((¬Q(N,0)∨(Q(0,M*N)∨¬∀I K.((¬(K=0)∧Q(I,K))⊃Q(PR%
EDI,K+M))))⊃(¬Q(SUCCN,0)∨(Q(0,M*SUCCN)∨¬∀I K.((¬(K=0)∧Q(I,K))⊃Q(PREDI,K+M))))))⊃∀N.(¬Q(N,0)∨(Q(0,M*N)∨¬∀I K.((¬(%
K=0)∧Q(I,K))⊃Q(PREDI,K+M))))    ∧I (INDUCTION) 

2  (M*0)=0    ∀E TIMES1 M 

3  ¬Q(0,0)∨Q(0,M*0)    TAUTEQ 

4  ¬Q(N,0)∨(Q(0,M*N)∨¬∀I K.((¬(K=0)∧Q(I,K))⊃Q(PREDI,K+M)))  (4)  ASSUME 

5  ¬∀I K.((¬(K=0)∧Q(I,K))⊃Q(PREDI,K+M))⊃(¬Q(SUCCN,0)∨(Q(0,M*SUCCN)∨¬∀I K.((¬(K=0)∧Q(I,K))⊃Q(PREDI,K+M))))    TAU%
T 

6  ∀I K.((¬(K=0)∧Q(I,K))⊃Q(PREDI,K+M))  (6)  ASSUME 

7  ((SUCCN≥0⊃Q(SUCCN-0,M*0))∧∀N1.((SUCCN≥N1⊃Q(SUCCN-N1,M*N1))⊃(SUCCN≥SUCCN1⊃Q(SUCCN-SUCCN1,M*SUCCN1))))⊃∀N1.(SUC%
CN≥N1⊃Q(SUCCN-N1,M*N1))    ∧I (INDUCTION) 

8  Q(SUCCN,0)  (8)  ASSUME 

9  (SUCCN-0)=SUCCN    ∀E MINUS2 SUCCN 

10  SUCCN≥0⊃Q(SUCCN-0,M*0)  (8)  TAUTEQ 

11  SUCCN≥N1⊃Q(SUCCN-N1,M*N1)  (11)  ASSUME 

12  NATNUM(SUCCN-N1)⊃((¬((M*N1)=0)∧Q(SUCCN-N1,M*N1))⊃Q(PRED(SUCCN-N1),(M*N1)+M))  (6)  ∀E 6 SUCCN-N1 , M*N1 

13  SUCCN≥N1  (13)  ASSUME 

14  SUCCN≥N1⊃NATNUM(SUCCN-N1)    ∀E MINUS1 SUCCN , N1 

15  (¬((M*N1)=0)∧Q(SUCCN-N1,M*N1))⊃Q(PRED(SUCCN-N1),(M*N1)+M)  (6 13)  TAUT 

16  ∀N1.((SUCCN≥N1⊃Q(SUCCN-N1,M*N1))⊃(SUCCN≥SUCCN1⊃Q(SUCCN-SUCCN1,M*SUCCN1)))⊃∀N1.(SUCCN≥N1⊃Q(SUCCN-N1,M*N1))  (%
8)  TAUT 

17  ∀N.((¬Q(N,0)∨(Q(0,M*N)∨¬∀I K.((¬(K=0)∧Q(I,K))⊃Q(PREDI,K+M))))⊃(¬Q(SUCCN,0)∨(Q(0,M*SUCCN)∨¬∀I K.((¬(K=0)∧Q(I,%
K))⊃Q(PREDI,K+M)))))⊃∀N.(¬Q(N,0)∨(Q(0,M*N)∨¬∀I K.((¬(K=0)∧Q(I,K))⊃Q(PREDI,K+M))))    TAUT